home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / stats / chadyn.exe / YJ.C < prev    next >
C/C++ Source or Header  |  1988-11-28  |  2KB  |  41 lines
  1.  
  2. /****************************** YCOMJ.C  *************************************/
  3. /******************* (C) 1986,7,8 by JAMES A. YORKE **************************/
  4.  
  5. #include "yinclud.h"
  6. #define ELP if(level > 2)erase_line();  PRINT    
  7.  
  8. jay() {
  9.     if(level == SETPARAM) {
  10.         scr_clr();    /* in desmets pcio.a */
  11.     }
  12.     ELP " \n");
  13.     ELP " \n");
  14.     ELP "   DDDD    Y     Y  N    N     A     M    M   I    CCC     SSSS  \n");
  15.     ELP "   D   DD   Y   Y   NN   N    A A    MM  MM   I  CC  CC   S    S \n");
  16.     ELP "   D     D   Y Y    N N  N   A   A   M MM M   I  C        SSS    \n");
  17.     ELP "   D     D    Y     N  N N  AAAAAAA  M    M   I  C           SSS \n");
  18.     ELP "   D   DD     Y     N   NN  A     A  M    M   I  CC  CC   S    S \n");
  19.     ELP "   DDDD       Y     N    N  A     A  M    M   I    CCC     SSSS  \n");
  20.     ELP " \n");
  21.     ELP " \n");
  22.     ELP "   JJJJJJJJ          A          Y     Y                          \n");
  23.     ELP "       J            A A          Y   Y  OOO   RRR    K  K  EEEE  \n");
  24.     ELP "       J           A   A          Y Y  O   O  R  R   K K   E     \n");
  25.     ELP "  JJ   J          A     A          Y   O   O  RRR    KK    EEE   \n");
  26.     ELP " J  J  J          AAAAAAA          Y   O   O  R  R   K K   E     \n");
  27.     ELP "  J    J         A       A         Y    OOO   R   R  K  K  EEEE  \n");
  28. #ifdef X11
  29.     ELP "   JJJJ         A         A        Y\n");
  30. #else
  31.     ELP "   JJJJ   %c     A         A  %c     Y                             \n",
  32.         1, 1);        /* 1 is undisplayable except on a PC */
  33. #endif
  34.     ELP " \n");
  35.     ELP "      UNIVERSITY OF MARYLAND, COLLEGE PARK, MARYLAND 20742\n\n\n");
  36. #ifdef X11
  37.     ELP " \n");
  38.     ELP "   Experimental X windows version by Eric Kostelich\n");
  39. #endif
  40. }
  41.